#!/usr/bin/env perl


#函数定义
sub sayHello{
        print("hello, World!\n");
}

#求和
sub mysum{
        #获取传入的参数
        #$n=scalar(@_); #参数个数
        $sum=0;
        foreach $i (@_) {
                $sum += $i;
        }
        return $sum;
}

#求平均值
sub aravge{
        $n=scalar(@_);
        $sum=0;
        foreach $i (@_) {
                $sum += $i;
        }
        $sum /= $n;
        return $sum;        
}

#显示传入的参数
sub disArg{
        my $n = scalar(@_);
        print("传入的参数为 : @_\n");
        print("传入的第一个参数为 : @_[0]\n");
        print("传入的参数个数为 : $n\n");
}

#调用函数
sayHello();
$sum=mysum(1,2,3,4);
$arr=aravge(1,2,3,4);
print("sum=$sum\n");
print("平均值=$arr\n");
disArg("hello","baby");

use feature 'state';
sub disCnt{
        state $cnt = 0;#初始化静态变量
        print("cnt=$cnt\n");
        $cnt++;
}

for (1..3) {
        disCnt();
}